home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / rexx / rxslib.inc < prev    next >
Text File  |  1998-06-24  |  2KB  |  82 lines
  1. include "inc/rexx/storage.inc";
  2.  
  3. def RXSNAME = "rexxsyslib.library";
  4. def RXSDIR = "REXX";
  5. def RXSTNAME = "ARexx";
  6.  
  7. struct RxsLib is
  8.   rl_Node:Library;
  9.   rl_Flags:ubyte;
  10.   rl_Shadow:ubyte;
  11.   rl_SysBase:ulong;
  12.   rl_DOSBase:ulong;
  13.   rl_IeeeDPBase:ulong;
  14.   rl_SegList:long;
  15.   rl_NIL:long;
  16.   rl_Chunk:long;
  17.   rl_MaxNest:long;
  18.   rl_NULL:ulong;
  19.   rl_FALSE:ulong;
  20.   rl_TRUE:ulong;
  21.   rl_REXX:ulong;
  22.   rl_COMMAND:ulong;
  23.   rl_STDIN:ulong;
  24.   rl_STDOUT:ulong;
  25.   rl_STDERR:ulong;
  26.   rl_Version:ulong;
  27.   rl_TaskName:ulong;
  28.   rl_TaskPri:long;
  29.   rl_TaskSeg:long;
  30.   rl_StackSize:long;
  31.   rl_RexxDir:ulong;
  32.   rl_CTABLE:ulong;
  33.   rl_Notice:ulong;
  34.   rl_RexxPort:MsgPort;
  35.   rl_ReadLock:uword;
  36.   rl_TraceFH:long;
  37.   rl_TaskList:List;
  38.   rl_NumTask:word;
  39.   rl_LibList:List;
  40.   rl_NumLib:word;
  41.   rl_ClipList:List;
  42.   rl_NumClip:word;
  43.   rl_MsgList:List;
  44.   rl_NumMsg:word;
  45.   rl_PgmList:List;
  46.   rl_NumPgm:word;
  47.   rl_TraceCnt:uword;
  48.   rl_avail:word;
  49. ;
  50.  
  51. def RLFB_TRACE = RTFB_TRACE;
  52. def RLFB_HALT = RTFB_HALT;
  53. def RLFB_SUSP = RTFB_SUSP;
  54. def RLFB_STOP = 6;
  55. def RLFB_CLOSE = 7;
  56.  
  57. def RLFMASK = (1<<RLFB_TRACE)|(1<<RLFB_HALT)|(1<<RLFB_SUSP);
  58.  
  59. def RXSCHUNK = 1024;
  60. def RXSNEST = 32;
  61. def RXSTPRI = 0;
  62. def RXSSTACK = 4096;
  63.  
  64. def CTB_SPACE = 0;
  65. def CTB_DIGIT = 1;
  66. def CTB_ALPHA = 2;
  67. def CTB_REXXSYM = 3;
  68. def CTB_REXXOPR = 4;
  69. def CTB_REXXSPC = 5;
  70. def CTB_UPPER = 6;
  71. def CTB_LOWER = 7;
  72.  
  73. def CTF_SPACE = (1<<CTB_SPACE);
  74. def CTF_DIGIT = (1<<CTB_DIGIT);
  75. def CTF_ALPHA = (1<<CTB_ALPHA);
  76. def CTF_REXXSYM = (1<<CTB_REXXSYM);
  77. def CTF_REXXOPR = (1<<CTB_REXXOPR);
  78. def CTF_REXXSPC = (1<<CTB_REXXSPC);
  79. def CTF_UPPER = (1<<CTB_UPPER);
  80. def CTF_LOWER = (1<<CTB_LOWER);
  81.  
  82.